home *** CD-ROM | disk | FTP | other *** search
Text File | 1996-01-24 | 4.3 KB | 192 lines | [TEXT/MPS ] |
- ;
- ; File: CTBUtilities.a
- ;
- ; Contains: Communications Toolbox Utilities interfaces.
- ;
- ; Version: Technology: System 7.5
- ; Package: Universal Interfaces 2.2 in “MPW” on ETO #20
- ;
- ; Copyright: © 1984-1995 by Apple Computer, Inc.
- ; All rights reserved.
- ;
- ; Bugs?: If you find a problem with this file, use the Apple Bug Reporter
- ; stack. Include the file and version information (from above)
- ; in the problem description and send to:
- ; Internet: apple.bugs@applelink.apple.com
- ; AppleLink: APPLE.BUGS
- ;
- ;
-
- IF &TYPE('__CTBUTILITIES__') = 'UNDEFINED' THEN
- __CTBUTILITIES__ SET 1
-
-
- IF &TYPE('__MEMORY__') = 'UNDEFINED' THEN
- include 'Memory.a'
- ENDIF
- ; include 'Types.a' ;
- ; include 'ConditionalMacros.a' ;
- ; include 'MixedMode.a' ;
-
- IF &TYPE('__DIALOGS__') = 'UNDEFINED' THEN
- include 'Dialogs.a'
- ENDIF
- ; include 'Errors.a' ;
- ; include 'Menus.a' ;
- ; include 'Quickdraw.a' ;
- ; include 'QuickdrawText.a' ;
- ; include 'Controls.a' ;
- ; include 'Windows.a' ;
- ; include 'Events.a' ;
- ; include 'OSUtils.a' ;
- ; include 'TextEdit.a' ;
-
- IF &TYPE('__STANDARDFILE__') = 'UNDEFINED' THEN
- include 'StandardFile.a'
- ENDIF
- ; include 'Files.a' ;
- ; include 'Finder.a' ;
-
- IF &TYPE('__APPLETALK__') = 'UNDEFINED' THEN
- include 'AppleTalk.a'
- ENDIF
-
- ; version of Comm Toolbox Utilities
- curCTBUVersion EQU 2
- ; Error codes/types
- ctbuGenericError EQU -1
- ctbuNoErr EQU 0
-
- ; typedef OSErr CTBUErr
-
- chooseDisaster EQU -2
- chooseFailed EQU -1
- chooseAborted EQU 0
- chooseOKMinor EQU 1
- chooseOKMajor EQU 2
- chooseCancel EQU 3
-
- ; typedef unsigned short ChooseReturnCode
-
- nlOk EQU 0
- nlCancel EQU 1
- nlEject EQU 2
-
- ; typedef unsigned short NuLookupReturnCode
-
- nameInclude EQU 1
- nameDisable EQU 2
- nameReject EQU 3
-
- ; typedef unsigned short NameFilterReturnCode
-
- zoneInclude EQU 1
- zoneDisable EQU 2
- zoneReject EQU 3
-
- ; typedef unsigned short ZoneFilterReturnCode
-
- ; Values for hookProc items
- hookOK EQU 1
- hookCancel EQU 2
- hookOutline EQU 3
- hookTitle EQU 4
- hookItemList EQU 5
- hookZoneTitle EQU 6
- hookZoneList EQU 7
- hookLine EQU 8
- hookVersion EQU 9
- hookReserved1 EQU 10
- hookReserved2 EQU 11
- hookReserved3 EQU 12
- hookReserved4 EQU 13
- ; "virtual" hookProc items
- hookNull EQU 100
- hookItemRefresh EQU 101
- hookZoneRefresh EQU 102
- hookEject EQU 103
- hookPreflight EQU 104
- hookPostflight EQU 105
- hookKeyBase EQU 1000
-
- ; NuLookup structures/constants
- NLTypeEntry RECORD 0
- hIcon ds.l 1 ; offset: $0 (0)
- typeStr ds.b 33 ; offset: $4 (4)
- ORG 38
- sizeof EQU * ; size: $26 (38)
- ENDR
-
- ; typedef struct NLTypeEntry NLTypeEntry
- ; typedef NLTypeEntry NLType[4]
- NBPReply RECORD 0
- theEntity ds EntityName ; offset: $0 (0)
- theAddr ds AddrBlock ; offset: $66 (102)
- sizeof EQU * ; size: $6A (106)
- ENDR
-
- ; typedef struct NBPReply NBPReply
- ;
- ; pascal CTBUErr InitCTBUtilities(void)
- ;
- IF ¬ GENERATINGCFM THEN
- Macro
- _InitCTBUtilities
- move.w #$0401,-(sp)
- dc.w $204F
- dc.w $A08B
- dc.w $544F
- EndM
- ELSE
- IMPORT_CFM_FUNCTION InitCTBUtilities
- ENDIF
-
- ;
- ; pascal short CTBGetCTBVersion(void)
- ;
- IF ¬ GENERATINGCFM THEN
- Macro
- _CTBGetCTBVersion
- move.w #$0405,-(sp)
- dc.w $204F
- dc.w $A08B
- dc.w $544F
- EndM
- ELSE
- IMPORT_CFM_FUNCTION CTBGetCTBVersion
- ENDIF
-
- ;
- ; pascal short StandardNBP(Point where, ConstStr255Param prompt, short numTypes, NLType typeList, NameFilterUPP nameFilter, ZoneFilterUPP zoneFilter, DialogHookUPP hook, NBPReply *theReply)
- ;
- IF ¬ GENERATINGCFM THEN
- Macro
- _StandardNBP
- move.w #$0406,-(sp)
- dc.w $204F
- dc.w $A08B
- dc.w $544F
- EndM
- ELSE
- IMPORT_CFM_FUNCTION StandardNBP
- ENDIF
-
- ;
- ; pascal short CustomNBP(Point where, ConstStr255Param prompt, short numTypes, NLType typeList, NameFilterUPP nameFilter, ZoneFilterUPP zoneFilter, DialogHookUPP hook, long userData, short dialogID, ModalFilterUPP filter, NBPReply *theReply)
- ;
- IF ¬ GENERATINGCFM THEN
- Macro
- _CustomNBP
- move.w #$0407,-(sp)
- dc.w $204F
- dc.w $A08B
- dc.w $544F
- EndM
- ELSE
- IMPORT_CFM_FUNCTION CustomNBP
- ENDIF
-
- IF OLDROUTINENAMES THEN
- ENDIF
- ENDIF ; __CTBUTILITIES__
-